@lista = (1,3,5,,7,9,11,13);

@listb = (2,4,6,8,10,12,14);

foreach $a (@lista){
	foreach $b (@listb){
		print "$a - $b \n";
	}
}
